home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / fifth21 / bench.fiv < prev    next >
Text File  |  1985-10-22  |  453b  |  32 lines
  1. CREATE BENCH1
  2. CREATE SIZE
  3. EDIT
  4. 8190 constant size
  5. ~UP
  6. CREATE FLAGS
  7. EDIT
  8. create flags
  9. size allot
  10. ~UP
  11. CREATE 10TIMES
  12. EDIT
  13. : 10times
  14.   10 0 do
  15.     bench1
  16.   loop
  17. ;
  18. ~UP
  19. EDIT
  20. : BENCH1
  21.   FLAGS SIZE 1 FILL
  22.   0 SIZE 0
  23.   DO  FLAGS I + C@
  24.       IF    I DUP + 3 + DUP I +
  25.             BEGIN     DUP SIZE <
  26.             WHILE     0 OVER FLAGS + C! OVER +
  27.             REPEAT    DROP DROP 1+
  28.       ENDIF
  29.   LOOP
  30.   . ." Primes " ;
  31. ~UP
  32. ABORT